home *** CD-ROM | disk | FTP | other *** search
/ CSi Master: Ableton Live 5 / CSi Master: Ableton Live 5.iso / pc / rsrc / locrsrc / cstshared.cst / 00020_openQuitBoxFromIE.ls < prev    next >
Encoding:
Text File  |  2005-07-28  |  1.0 KB  |  36 lines
  1. on openQuitBoxFromIE_OLD
  2.   
  3.   global gQuitWindow
  4.   
  5.   put the desktoprectlist into xxx
  6.   put getat(xxx, 1) into yyy
  7.   put getat(yyy, 3) into hhh
  8.   put getat(yyy, 4) into vvv
  9.   
  10.   set vWidth = 400
  11.   set vHeight = 200
  12.   set vPosH = integer(hhh/2) - integer(400/2)
  13.   set vPosV = integer(vvv/2) - integer(200/2)
  14.   
  15.   -- FIND THE WAY BACK TO THE BROWSER
  16.   -----------------------------------
  17.   put the itemDelimiter into itemDelimiterSaver
  18.   if the machinetype = 256 then
  19.     set the itemDelimiter = "\"
  20.   else
  21.     set the itemDelimiter = ":"
  22.   end if
  23.   global gBrowserMoviePath
  24.   put gBrowserMoviePath into TheWayBack
  25.   delete item (the number of items in TheWayBack) of TheWayBack
  26.   put TheWayBack & the itemDelimiter into TheWayBack
  27.   put itemDelimiterSaver into itemDelimiter
  28.   -----------------------------------
  29.   
  30.   set gQuitWindow = window "Are You Sure?"
  31.   set the fileName of gQuitWindow = (TheWayBack & "quitBox")
  32.   set the windowType of gQuitWindow = 16
  33.   set the rect of gQuitWindow = rect(vPosH, vPosV, vPosH + vWidth, vPosV + vHeight)
  34.   open gQuitWindow
  35.   
  36. end